Public Class SumarioSingleText
    Inherits SumarioBase

    Public Sub New(ByVal txtResumo As String, ByVal origem As TextoFonte)
        MyBase.New(txtResumo)
        _textoFonte = origem
    End Sub

    Private _textoFonte As TextoFonte
    Public Property TextoFonte() As TextoFonte
        Get
            Return _textoFonte
        End Get
        Set(ByVal value As TextoFonte)
            _textoFonte = value
        End Set
    End Property

End Class
